home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
vdl020d.zip
/
VTYPES.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
4KB
|
156 lines
{
════════════════════════════════════════════════════════════════════════════
Visionix General Type Definitions Unit (VTYPE)
Copyright 1991,92,93 Visionix
ALL RIGHTS RESERVED
────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
-------- -------- -------------------------------------------------------
mep 04/07/93 Added TCharArray.
mep 03/29/93 Added TDecHex and maxArrSize.
mep 03/20/93 Added TWordArray and TLongIntArray.
mep 02/11/93 Cleaned up code for beta release
jrt 02/08/93 Sync with beta 0.12 release
jrt 12/15/92 Changes for BP 7.0
Added constants which are defined in bp 7.0
but not in 6.0 so that they are included if
this unit is being compiled under 6.0
jrt 11/21/92 Sync with beta 0.08
lpg 10/07/92 Added String Constants:
cSPACE,cLoALPHA,cLoALPHANUM,cHiALPHA,cHiALPHANUM,
cALPHA,cALPHANUM,cNUMERIC,cGRAMMAR
jrt 09/01/92 First logged revision.
────────────────────────────────────────────────────────────────────────────
}
Unit VTypes;
{────────────────────────────────────────────────────────────────────────────}
Const
CBitMapB : Array[0..7] of Byte =
( $1, $2, $4, $8,
$10, $20, $40, $80 );
CBitMapW : Array[0..15] of Word =
( $1, $2, $4, $8,
$10, $20, $40, $80,
$100, $200, $400, $800,
$1000, $2000, $4000, $8000 );
CBitMapL : Array[0..31] of LongInt =
( $1, $2, $4, $8,
$10, $20, $40, $80,
$100, $200, $400, $800,
$1000, $2000, $4000, $8000,
$10000, $20000, $40000, $80000,
$100000, $200000, $400000, $800000,
$1000000, $2000000, $4000000, $8000000,
$10000000, $20000000, $40000000, $80000000 );
SE_Ok = 0;
SE_NotFound = 1;
SE_NoMem = 2;
SE_UserESC = 3;
cSPACE = ' ';
cLoALPHA = 'abcdefghijklmnopqrstuvwxyz';
cLoALPHANUM = 'abcdefghijklmnopqrstuvwxyz0123456789';
cHiALPHA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
cHiALPHANUM = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
cALPHA = ' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
cALPHANUM = ' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
cNUMERIC = '0123456789';
cGRAMMAR = '!@#$%^&*(){}|[]\<>?,./';
TDecHex : Array[0..15] of Char = '0123456789ABCDEF';
maxArrSize = $FFF8;
{-------------------------------------------------------------------------}
{ Borland Pascal 7.0 compatability constants -- these are constants which }
{ are found in Pascal 7.0 but not in 6.0. They are included so that }
{ they can be used when the VDL units are compiled in 6.0 }
{-------------------------------------------------------------------------}
{$IFNDEF VER70}
Seg0040 = $0040;
SegA000 = $A000;
SegB000 = $B000;
SegB800 = $B800;
SelectorInc = $1000;
{$ENDIF}
{$IFDEF DPMI } {$DEFINE VDLPROT} {$ENDIF}
{$IFDEF WINDOWS } {$DEFINE VDLPROT} {$ENDIF}
{────────────────────────────────────────────────────────────────────────────}
Type
ST2 = STRING[2];
ST4 = STRING[4];
ST5 = STRING[5];
ST8 = STRING[8];
ST20 = STRING[20];
ST80 = STRING[80];
ST255 = STRING[255];
TString = STRING;
PString = ^TString;
TProcName = String[20];
PProcName = ^TProcName;
THandle = POINTER;
PHandle = ^THandle;
TCastWord = RECORD
LowByte : BYTE;
HighByte : BYTE;
END;
PCastWord = ^TCastWord;
TCastDWord = RECORD
LowWord : WORD;
HighWord : WORD;
END;
PCastDWord = ^TCastDWord;
TByteArray = ARRAY[1..maxArrSize] of BYTE;
PByteArray = ^TByteArray;
TCharArray = ARRAY[1..maxArrSize] of CHAR;
PCharArray = ^TCharArray;
TWordArray = ARRAY[1..(maxArrSize SHR 1)] of WORD;
PWordArray = ^PWordArray;
TLongIntArray = ARRAY[1..(maxArrSize SHR 2)] of LONGINT;
PLongIntArray = ^TLongIntArray;
{────────────────────────────────────────────────────────────────────────────}
{────────────────────────────────────────────────────────────────────────────}
{────────────────────────────────────────────────────────────────────────────}